require "../config.pl";

use Authen::Captcha;
use Digest::MD5 qw( md5_hex );
my $cap_data_folder = "$DOC_ROOT/tmp/captcha"; # Здесь будет находиться текстовый файл с кодами CAPTCHA
my $cap_out_folder = "$DOC_ROOT/tmp/captcha/img"; # Тут расположены проверочные изображения CAPTCHA
my $cap_length = 6; # Из скольки символов будет состоять капча
my $captcha = Authen::Captcha->new( data_folder => $cap_data_folder, output_folder => $cap_out_folder,);
my $md5sum = $captcha->generate_code($cap_length);

print "Content-Type: text/html; charset=utf-8\n\n";
print "http://xepec.ru/tmp/captcha/img/$md5sum.png";
